home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue68 / Soap / itec / CalcITEC.wsml < prev   
Encoding:
Text File  |  2001-03-04  |  1.5 KB  |  36 lines
  1. <servicemapping name='CalcITEC'>
  2.   <service name='CalcITEC'>
  3.     <using PROGID='ITEC.Calc' cachable='0' ID='CalcITECObject' />
  4.  <port name='CalcITECPortType'>
  5.     <operation name='Add'>
  6.       <execute uses='CalcITECObject' method='Add' dispID='1'>
  7.         <parameter callIndex='1' name='A' elementName='A' />
  8.         <parameter callIndex='2' name='B' elementName='B' />
  9.         <parameter callIndex='-1' name='retval' elementName='Result' />
  10.       </execute>
  11.     </operation>
  12.     <operation name='Subtract'>
  13.       <execute uses='CalcITECObject' method='Subtract' dispID='6'>
  14.         <parameter callIndex='1' name='A' elementName='A' />
  15.         <parameter callIndex='2' name='B' elementName='B' />
  16.         <parameter callIndex='-1' name='retval' elementName='Result' />
  17.       </execute>
  18.     </operation>
  19.     <operation name='Multiply'>
  20.       <execute uses='CalcITECObject' method='Multiply' dispID='5'>
  21.         <parameter callIndex='1' name='A' elementName='A' />
  22.         <parameter callIndex='2' name='B' elementName='B' />
  23.         <parameter callIndex='-1' name='retval' elementName='Result' />
  24.       </execute>
  25.     </operation>
  26.     <operation name='Divide'>
  27.       <execute uses='CalcITECObject' method='Divide' dispID='4'>
  28.         <parameter callIndex='1' name='A' elementName='A' />
  29.         <parameter callIndex='2' name='B' elementName='B' />
  30.         <parameter callIndex='-1' name='retval' elementName='Result' />
  31.       </execute>
  32.     </operation>
  33. </port>
  34.   </service>
  35. </servicemapping>
  36.